home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / info-service / gopher / incoming / gopher-1.1x-noPASV.patch < prev    next >
Encoding:
Text File  |  1993-06-01  |  15.3 KB  |  519 lines
  1.  
  2. These are some patches for the V1.1 and V1.12 gopherd so it can talk to
  3. FTP servers that do not understand the PASV command.
  4.  
  5. It also can tell directories from files from file-listings issued by some
  6. VMS FTP servers.
  7.  
  8. This has been tested with:
  9.     - one VMS FTP server running Wollongong-FTP V 5.1,
  10.     - one VMS FTP server running Multinet-FTP V 3.1.
  11.     - one Ultrix-RISC FTP server running 4.2 and one with 4.1,
  12.     - boombox.micro.umn.edu, which seems to be a Mac running some
  13.       version of A/UX.
  14.  
  15. Apparently, Multinet 3.2 does understand the PASV command, but this will
  16. not help, since the format of directory listings is still not what the
  17. original gopherd expects.
  18.  
  19.  
  20. To apply this patch:
  21.  
  22. Gopher 1.12: cd to the gopher1.12 directory and say: patch -p < thisfile
  23. Gopher 1.1 : cd to the gopher1.1  directory and say: patch -p -F3 < thisfile
  24.  
  25. (You will get some "with fuzz n" and "offset n lines" messages with gopher1.1,
  26. ignore these).
  27.  
  28. Patched files are: object/GSgopherobj.c gopherd/ftp.c gopherd/gopherd.c
  29.  
  30. Then rebuild gopherlib.a and gopherd:
  31.  
  32.     % rm object/gopherlib.a
  33.     % make server
  34.  
  35.  
  36. To use the extensions for VMS FTP servers, you must say:
  37.  
  38.         Path=ftp-vms:vms.ftp.server@/
  39.  
  40. and for Ultrix or A/UX FTP servers ("nop" stands for "no-PASV"):
  41.  
  42.     Path=ftp-nop:ultrix.ftp.serv@/
  43.  
  44. where you would usually write
  45.  
  46.         Path=ftp:unix.ftp.server@/
  47.  
  48. in a .Links file.
  49.  
  50. +-----------
  51.   Andi Karrer, Communication Systems, ETH Zuerich, Switzerland
  52.   karrer@bernina.ethz.ch    - Objects in mirror are closer than they appear
  53. +-----------
  54.  
  55. *** object/GSgopherobj.c.dist    Mon Jan 11 20:54:22 1993
  56. --- object/GSgopherobj.c    Sun Feb 21 23:11:49 1993
  57. ***************
  58. *** 1,3 ****
  59. --- 1,10 ----
  60. + /*
  61. +  * Added support for VMS FTP servers that do not understand the FTP PASV
  62. +  * command (Wollongong, Multinet). Also present these servers output
  63. +  * in a Unix fashion.
  64. +  * Also works with Ultrix 4.2 FTP servers whose PASV command is broken.
  65. +  * Andi Karrer, karrer@bernina.ethz.ch, 21. Feb 93
  66. +  */
  67.   /********************************************************************
  68.    * $Author: lindner $
  69.    * $Revision: 1.1.1.3 $
  70. ***************
  71. *** 408,413 ****
  72. --- 415,499 ----
  73.         closenet(iSock);
  74.         return (-4);
  75.        }
  76. +      return(iSock);
  77. + }
  78. + 
  79. + /* needed for FTP servers without PASV */
  80. + #include <errno.h>
  81. + 
  82. + /* GSlisten opens a port and listens to it */
  83. + 
  84. + int
  85. + GSlisten(We)
  86. +     struct sockaddr_in *    We;
  87. + {
  88. +      int iSock = 0;
  89. +      struct hostent *HostPtr;
  90. +      int len = sizeof(struct sockaddr_in);
  91. +      char name[100];
  92. + 
  93. +      if ((iSock = socket(AF_INET, SOCK_STREAM, 0)) < 0)
  94. +       return (-3);
  95. + 
  96. +      /* Cargo cult; no idea if these options are good here */
  97. + 
  98. + #ifndef UCX
  99. +      setsockopt(iSock, SOL_SOCKET, ~SO_LINGER, 0, 0);
  100. + #endif
  101. +      setsockopt(iSock, SOL_SOCKET, SO_REUSEADDR, 0, 0);
  102. +      setsockopt(iSock, SOL_SOCKET, SO_KEEPALIVE, 0, 0);
  103. + 
  104. +      if (listen(iSock, 5) || getsockname(iSock, We, &len)) {
  105. +           closenet(iSock);
  106. +           return(-4);
  107. +      }
  108. + 
  109. +      gethostname(name, 100);
  110. +      if (HostPtr = gethostbyname(name)) 
  111. +           bcopy(HostPtr->h_addr, (char *) &We->sin_addr, HostPtr->h_length);
  112. +      return(iSock);
  113. + }
  114. + 
  115. + /* GSaccept accepts a connection from some socket. The parameter 
  116. +  * full_hostname will, on return,
  117. +  * contain the expanded hostname (if possible).  Note that full_hostname is a
  118. +  * pointer to a char *, and is allocated by connect_to_gopher()
  119. +  *
  120. +  * Errors:
  121. +  *
  122. +  * -1 get service failed
  123. +  *
  124. +  * -2 get host failed
  125. +  *
  126. +  * -3 socket call failed
  127. +  *
  128. +  * -4 connect call failed
  129. +  */
  130. + 
  131. + int
  132. + GSaccept(s, gs)
  133. +   int s;
  134. +   GopherObj *gs;
  135. + {
  136. +      struct sockaddr_in Server;
  137. +      struct hostent *HostPtr;
  138. +      int ERRinet = -1;
  139. +      int iSock = 0;
  140. +      int len = sizeof(struct sockaddr_in);
  141. + 
  142. + #ifdef _CRAY
  143. +      ERRinet = 0xFFFFFFFF;  /* -1 doesn't sign extend on 64 bit machines */
  144. + #endif
  145. + 
  146. +      if ((iSock = accept(s, &Server, &len)) < 0) {
  147. +     printf("Aaaargh! %d", errno);
  148. +        return -4;
  149. +      }
  150. +      
  151. +      GSsetPort(gs, ntohs(Server.sin_port));
  152. +      
  153. +      close(s); /* Der Mohr hat seine Schuldigkeit getan */
  154. + 
  155.        return(iSock);
  156.   }
  157.   
  158. *** gopherd/ftp.c.dist    Tue Jan 12 00:16:39 1993
  159. --- gopherd/ftp.c    Sun Feb 21 23:12:01 1993
  160. ***************
  161. *** 1,3 ****
  162. --- 1,10 ----
  163. + /*
  164. +  * Added support for VMS FTP servers that do not understand the FTP PASV
  165. +  * command (Wollongong, Multinet). Also present these servers output
  166. +  * in a Unix fashion.
  167. +  * Also works with Ultrix 4.2 FTP servers whose PASV command is broken.
  168. +  * Andi Karrer, karrer@bernina.ethz.ch, 21. Feb 93
  169. +  */
  170.   /********************************************************************
  171.    * $Author: lindner $
  172.    * $Revision: 1.2 $
  173. ***************
  174. *** 62,67 ****
  175. --- 69,76 ----
  176.   int    gettingBinary = 0;
  177.   int    childpid;
  178.   
  179. + extern int  no_pasv, is_vms;
  180. + 
  181.   /*** Some forward declarations ***/
  182.   boolean NotText();
  183.   int     Abort();
  184. ***************
  185. *** 323,329 ****
  186.         while (fgets(buf, sizeof buf, fp) != NULL) {
  187.              ZapCRLF(buf);
  188.              GopherType(buf, theName);
  189. !            sprintf(outputline, "%s\tftp:%s@%s%s\t%s\t%d\r\n", theName,
  190.                  host, thing, buf, Zehostname, GopherPort);
  191.              FailErr(writestring(sockfd, outputline));
  192.         }
  193. --- 332,339 ----
  194.         while (fgets(buf, sizeof buf, fp) != NULL) {
  195.              ZapCRLF(buf);
  196.              GopherType(buf, theName);
  197. !            sprintf(outputline, "%s\t%s:%s@%s%s\t%s\t%d\r\n", theName,
  198. !                no_pasv ? is_vms ? "ftp-vms" : "ftp-nop" : "ftp", 
  199.                  host, thing, buf, Zehostname, GopherPort);
  200.              FailErr(writestring(sockfd, outputline));
  201.         }
  202. ***************
  203. *** 430,438 ****
  204.        int extType, i, last;
  205.        char    tmpName[SLEN];    
  206.        
  207. !      last = strlen(buf) -1;
  208. ! 
  209.        strcpy(tmpName, buf);
  210.        if (buf[last] == '/') {
  211.         tmpName[last] = '\0';
  212.         sprintf(theName, "%d%s", GDIR, tmpName);
  213. --- 440,468 ----
  214.        int extType, i, last;
  215.        char    tmpName[SLEN];    
  216.        
  217. !      last = strlen(buf) - 1;
  218. !      while (buf[last] == ' ') {
  219. !         buf[last] = '\0';
  220. !         last--;
  221. !      }
  222. !      if (is_vms) {
  223. !           /* strip ugly VMS version numbers */
  224. !           last = strlen(buf) - 1;
  225. !           while(last>1 && isdigit(buf[last])) last--;
  226. !           if (last>1 && buf[last] == ';') {
  227. !                buf[last] = '\0';
  228. !                last--;
  229. !           }
  230. !      }
  231.        strcpy(tmpName, buf);
  232. +      /* if buf ends in ".dir", it's a directory, replace ".dir" with "/" */
  233. +      if (is_vms && (last > 3) && (strncmp(buf + last - 3, ".dir", 4) == 0)) {
  234. +           last -= 3;
  235. +           tmpName[last] = '\0';
  236. +           sprintf(buf, "%s/", tmpName);
  237. +           sprintf(theName, "%d%s", GDIR, tmpName);
  238. +           return;
  239. +      }
  240.        if (buf[last] == '/') {
  241.         tmpName[last] = '\0';
  242.         sprintf(theName, "%d%s", GDIR, tmpName);
  243. ***************
  244. *** 521,523 ****
  245. --- 551,758 ----
  246.   }
  247.   
  248.   /*--------------------------------*/
  249. + 
  250. + void
  251. + SendNoPASVFtpQuery(sockfd, query)
  252. +   char *query;
  253. + {
  254. +      int       sLen, termCh, i;
  255. +      char      *at, *cp;
  256. +      char      inputline[512];
  257. +      char      buf[1600];     /*** Nice MTU size ***/
  258. +      int       tmpfd;
  259. +      int       ftp_control, ftp_data;
  260. +      int       ftp_dataport, nRead;
  261. +      GopherObj *gs;
  262. +      struct sockaddr_in we;
  263. +      char vmspath[256], vmsfile[80];
  264. +      char *beg, *end;
  265. +      int len;
  266. +      int makelower;
  267. + 
  268. +      /*** hook onto the gs code to do our ftp socket connects ***/
  269. +      gs = GSnew();
  270. + 
  271. +      /** Get ready for some cleanup action **/
  272. +      signal(SIGPIPE, Cleanup);
  273. +      signal(SIGINT, Cleanup);
  274. +      signal(SIGALRM, Cleanup);
  275. + 
  276. +      if (DEBUG) printf("The full query was %s\n", query);
  277. +      
  278. +      if ((sLen = strlen(query)) <= 2) Abort(sockfd,"No host name specified.");
  279. +      host = query;
  280. +      at = strchr(query, '@');
  281. +      
  282. +      if (at == NULL) Abort(sockfd, "Not a valid ftp query.");
  283. +      
  284. +      GenerateUniqueFiles(ftptmp);
  285. +      tmpfd = uopen(ftptmp, O_RDWR|O_CREAT,0755);
  286. +      
  287. +      if (tmpfd < 0)
  288. +       Abort(sockfd, "Sorry, out of tmp transfer space!");
  289. + 
  290. +      thing = at + 1;
  291. +      *at = '\0';             /*Sneakily chop it into two strings*/
  292. + 
  293. +      sLen = strlen(thing);
  294. +      termCh = thing[sLen - 1];            /* Grab possible end char: / etc */
  295. +      
  296. +      if ((termCh == '*') || (termCh == '@'))  /*  || (termCh == '/')  */
  297. +       thing[sLen - 1] = '\0';
  298. +      
  299. +      if (DEBUG)
  300. +       printf("At this point host: %s   thing: %s\n", host, thing);
  301. +      
  302. + 
  303. +      /*** Open an ftp control connection ***/
  304. +      GSsetHost(gs, host);
  305. +      GSsetPort(gs, 21);
  306. +      
  307. +      ftp_control = GSconnect(gs);
  308. +      if (ftp_control < 0)
  309. +       Abort(sockfd, "unable to connect to ftp server!");
  310. + 
  311. +      /*** Strip off the connection message ***/
  312. +      getreply(ftp_control,inputline,sizeof inputline);
  313. + 
  314. +      if (*inputline != '2')
  315. +       /*** Some sort of error, urg! ***/
  316. +       Abort(sockfd, inputline +3);
  317. + 
  318. +      /*** Send username ***/
  319. +      writestring(ftp_control, "USER anonymous\r\n");
  320. +      if (DEBUG) printf("Send: USER anonymous CRLF\n");
  321. + 
  322. +      getreply(ftp_control,inputline,sizeof inputline);
  323. + 
  324. +      if (*inputline != '3')
  325. +       /*** Some sort of error, urg! ***/
  326. +       Abort(sockfd, inputline +3);
  327. + 
  328. +      /** Send password***/
  329. +      writestring(ftp_control, "PASS -gopher@");
  330. +      writestring(ftp_control, Zehostname);
  331. +      writestring(ftp_control, "\r\n");
  332. +      if (DEBUG) printf("Send: PASS -gopher@%s\n", Zehostname);
  333. + 
  334. +      getreply(ftp_control,inputline,sizeof inputline);
  335. + 
  336. +      if (*inputline != '2')
  337. +       /*** Some sort of error, urg! ***/
  338. +       Abort(sockfd, inputline +3);
  339. + 
  340. +      if ((ftp_dataport = GSlisten(&we)) < 0)
  341. +        Abort(sockfd, "no clue what socket error!");
  342. + 
  343. +      sprintf(inputline, "PORT %d,%d,%d,%d,%d,%d\r\n",
  344. +          (htonl(we.sin_addr.s_addr) >> 24) & 0xFF,
  345. +          (htonl(we.sin_addr.s_addr) >> 16) & 0xFF,
  346. +          (htonl(we.sin_addr.s_addr) >>  8) & 0xFF,
  347. +          (htonl(we.sin_addr.s_addr)      ) & 0xFF,
  348. +          (htons(we.sin_port)        >>  8) & 0xFF,
  349. +          (htons(we.sin_port)             ) & 0xFF);
  350. +      if (DEBUG) printf("Send: %s", inputline);
  351. + 
  352. +      writestring(ftp_control, inputline);
  353. + 
  354. +      getreply(ftp_control,inputline,sizeof inputline);
  355. + 
  356. +      if (*inputline != '2')
  357. +       /*** Some sort of error, urg! ***/
  358. +       Abort(sockfd, inputline +3);
  359. + 
  360. +      if (termCh == '/') {    /* We have a directory */
  361. +           if (DEBUG) printf("(It's a directory)\n");
  362. +       gettingFile = 0;
  363. +           /* thing looks like '/dir/dir.../dir/' now. Because Wollongong
  364. +            * wants "CWD dir/dir/dir" and Multinet wants "CWD dir.dir.dir"
  365. +            * we do the CWD in a stepwise fashion. Oh well...
  366. +            */
  367. +           beg = thing + 1;
  368. +       while (beg < thing + strlen(thing) - 2) {
  369. +                end = strchr(beg, '/');
  370. +                strcpy(vmspath, beg);
  371. +                vmspath[end-beg] = '\0';
  372. +            writestring(ftp_control, "CWD ");
  373. +            writestring(ftp_control, vmspath);
  374. +            writestring(ftp_control, "\r\n");
  375. +                if (DEBUG) printf("Send: CWD %s CRLF\n", vmspath);
  376. +            getreply(ftp_control,inputline,sizeof inputline);
  377. +            if (*inputline != '2')
  378. +                 Abort(sockfd,inputline + 4);
  379. +                beg = end + 1;
  380. +       }
  381. +           if (DEBUG) printf("Send: %s\n", is_vms ? "NLST" : "NLST -LF");
  382. +       writestring(ftp_control, is_vms ? "NLST\r\n" : "NLST -LF\r\n");
  383. +       getreply(ftp_control,inputline,sizeof inputline);
  384. +           makelower = 1;
  385. + 
  386. +       if (*inputline != '1')
  387. +            Abort(sockfd,inputline + 4);
  388. +      }
  389. +      else {                    /* We have a file */
  390. +           if (DEBUG) printf("(It's a file)\n");
  391. +       gettingFile = 1;
  392. +       if (gettingBinary = IsBinaryType(thing))  {
  393. +            writestring(ftp_control, "TYPE I\r\n");
  394. +                if (DEBUG) printf("Send: TYPE I\n");
  395. +            getreply(ftp_control,inputline,sizeof inputline);
  396. +            if (*inputline != '2')
  397. +             Abort(sockfd,"Unable to transfer files in binary");
  398. +       }
  399. +       /* thing now looks like '/dir/dir/file.ext' */
  400. +       strcpy(vmspath, thing);
  401. +       len = strlen(vmspath) - 1;
  402. +       while (len > 1 && vmspath[len] != '/') len--;
  403. +           beg = vmspath + 1;
  404. +       while ((end = strchr(beg, '/')) != NULL) {
  405. +                strcpy(vmsfile, beg);
  406. +                vmsfile[end-beg] = '\0';
  407. +            writestring(ftp_control, "CWD ");
  408. +            writestring(ftp_control, vmsfile);
  409. +            writestring(ftp_control, "\r\n");
  410. +                if (DEBUG) printf("Send: CWD %s CRLF\n", vmsfile);
  411. +            getreply(ftp_control,inputline,sizeof inputline);
  412. +                if (*inputline != '2')
  413. +                     Abort(sockfd,inputline + 4);
  414. +                beg = end + 1;
  415. +           }
  416. +           beg = strrchr(thing, '/') + 1;
  417. +       writestring(ftp_control, "RETR ");
  418. +       writestring(ftp_control, beg);
  419. +       writestring(ftp_control, "\r\n");
  420. +           if (DEBUG) printf("Send: RETR %s CRLF\n", beg);
  421. +           makelower = 0;
  422. + 
  423. +       getreply(ftp_control,inputline,sizeof inputline);
  424. +       if (*inputline != '1')
  425. +            Abort(sockfd,inputline + 4);
  426. +      }
  427. +      ftp_data = GSaccept(ftp_dataport, gs);
  428. +      if (ftp_data < 0)
  429. +       Abort(sockfd,"Unable to establish data connection!");
  430. +      /*** Transfer the data... ***/
  431. +      while ((nRead = read(ftp_data, buf, sizeof buf)) > 0) {
  432. +       if (makelower && is_vms) {
  433. +         for (i=0; i<nRead; i++) buf[i] = tolower(buf[i]);
  434. +           }
  435. +       writen(tmpfd, buf, nRead);
  436. +      }
  437. + 
  438. +      close(ftp_data);
  439. +      
  440. +      getreply(ftp_control,inputline,sizeof inputline);
  441. + 
  442. +      if (*inputline != '2')
  443. +       Abort(sockfd,inputline + 3);
  444. + 
  445. +      writestring(ftp_control, "QUIT\r\n");
  446. + 
  447. +      getreply(ftp_control,inputline,sizeof inputline);
  448. + 
  449. +      if (*inputline != '2')
  450. +       Abort(sockfd,inputline + 3);
  451. + 
  452. +      close(ftp_control);
  453. + }
  454. *** gopherd/gopherd.c.dist    Mon Jan 11 20:07:42 1993
  455. --- gopherd/gopherd.c    Sun Feb 21 23:12:13 1993
  456. ***************
  457. *** 1,3 ****
  458. --- 1,10 ----
  459. + /*
  460. +  * Added support for VMS FTP servers that do not understand the FTP PASV
  461. +  * command (Wollongong, Multinet). Also present these servers output
  462. +  * in a Unix fashion.
  463. +  * Also works with Ultrix 4.2 FTP servers whose PASV command is broken.
  464. +  * Andi Karrer, karrer@bernina.ethz.ch, 21. Feb 93
  465. +  */
  466.   /********************************************************************
  467.    * $Author: lindner $
  468.    * $Revision: 1.2.1.6 $
  469. ***************
  470. *** 56,61 ****
  471. --- 63,70 ----
  472.   void LOGGopher();
  473.   
  474.   static    int    uid = -2;
  475. + int no_pasv = 0;
  476. + int is_vms  = 0;
  477.   
  478.   extern char *getdesc();
  479.   extern double  maxload;
  480. ***************
  481. *** 655,660 ****
  482. --- 664,670 ----
  483.   do_command(sockfd)
  484.     int sockfd;
  485.   {
  486. +      extern int no_pasv;
  487.        char inputline[MAXLINE];
  488.        int length;        /* Length of the command line */
  489.        char logline[MAXLINE];
  490. ***************
  491. *** 916,921 ****
  492. --- 926,932 ----
  493.         }
  494.   
  495.         if (strncmp(selstr, "ftp:",4)==0){
  496. +                no_pasv = 0;
  497.              sprintf(logline, "retrieved %s", selstr);
  498.              LOGGopher(sockfd, logline);
  499.   
  500. ***************
  501. *** 923,928 ****
  502. --- 934,949 ----
  503.              TranslateResults(sockfd);
  504.              break;
  505.         }
  506. +           is_vms = (strncmp(selstr, "ftp-vms:",8) == 0);
  507. +           if ((is_vms) || (strncmp(selstr, "ftp-nop:",8) == 0)) {
  508. +                no_pasv = 1;
  509. +            sprintf(logline, "retrieved %s", selstr);
  510. +            LOGGopher(sockfd, logline);
  511. + 
  512. +                SendNoPASVFtpQuery(sockfd, selstr+8);
  513. +                TranslateResults(sockfd);
  514. +                break;
  515. +           }
  516.         break;
  517.   
  518.        case 'e':
  519.